home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS19.ADF / DiskLib / Listing_1 < prev    next >
Text File  |  1989-01-27  |  621b  |  27 lines
  1. disklib:c/assign c: disklib:c
  2. cd disklib:
  3. loadwb
  4. echo "This startup-sequence is intended to allow single drive users"
  5. echo "to use the program disklib.bas"
  6. echo "To reestablish your original configuration (more or less)"
  7. echo "when you are done with disklib.bas, type:"
  8. echo ""
  9. echo "`execute disklib:s/end-sequence'"
  10. echo ""
  11. assign l: disklib:l
  12. assign libs: disklib:libs
  13. assign devs: disklib:devs
  14. IF NOT exists ram:c
  15. makedir ram:c
  16. endif
  17. copy c/info ram:c
  18. copy c/cd ram:c
  19. copy c/LIST ram:c
  20. copy c/assign ram:c
  21. copy c/execute ram:c
  22. copy c/RUN ram:c
  23. copy disklib:dos.bmap TO ram:
  24. newcli
  25. assign c: ram:c
  26. df0:c/endcli > nil:
  27.